Release 10.1A: OpenEdge Development:
Progress 4GL Reference

OS-COPY statement

Executes an operating system file copy command from within Progress.

Syntax

OS-COPY { source-filename | VALUE ( expression ) } { target-filename | VALUE ( expression ) }

source-filename

The name of the original file. If you specify a directory, OS-COPY generates an error.

VALUE ( expression )

An expression that returns the name of the original file. Expression can contain constants, field names, and variable names.

target-filename

The name of the new file or directory. If you specify a directory, OS-COPY gives the target file the same name as the source file.

VALUE ( expression )

An expression that returns the name of the new file or directory. expression can contain constants, field names, and variable names.

Example

This procedure opens a dialog box that prompts the user to choose a file to copy. It then prompts for a name for the copy. Finally, the procedure uses the OS-COPY statement to copy the file.

r-os-cop.p

DEFINE VARIABLE sourcefilename AS CHARACTER NO-UNDO. DEFINE VARIABLE copyfilename AS CHARACTER FORMAT "x(20)" VIEW-AS FILL-IN. DEFINE VARIABLE OKpressed AS LOGICAL INITIAL TRUE. Main: REPEAT: SYSTEM-DIALOG GET-FILE sourcefilename TITLE "Choose File to Copy" MUST-EXIST USE-FILENAME UPDATE OKpressed. IF OKpressed = FALSE THEN LEAVE Main. UPDATE copyfilename WITH FRAME copyframe. OS-COPY VALUE(sourcefilename) VALUE(copyfilename). END.

Notes

The filenames must conform to the naming conventions of the underlying operating system.
If target-file specifies an existing file, OS-COPY overwrites the existing file.
If target-file has the same name as source-file, the copy fails, but OS-ERROR is not set.
If the copy terminates abnormally, Progress deletes the partial target-file.
Enclose filenames that refer to physical devices in double quotes (" ").
Although an error can occur during execution of this statement, the statement does not generate an error message, raise an error condition, or affect the program’s flow in any way. Check for an execution error by using the OS-ERROR function and evaluating the return.

See also

OS-ERROR function